STATEV.NEW[1,JRA]1 - www.SailDart.org

perm filename STATEV.NEW[1,JRA]1 blob sn#005833 filedate 1972-10-17 generic text, type T, neo UTF8

00035	(SETQ NO 10.)
00050	(SETQ STRATLIST (QUOTE (ALLPOS ALLNEG ANCESTRY SUPPORT MODEL NONE 
00075	   VINE UNIT ORDER  MERGE )))
00100	(SETQ STATEVECTOR (QUOTE ( STRATEGY SUPPORT 
00200	EDITSTRAT  MERGE ORDER DEBUG DEPTH LENGTH ANCESTRY 
00300	 PMODEL NMODEL PFLG EQUAL PDEPTH DLIST 
00400	 )))
01400	
01500	(SETQ ESCAPE (QUOTE $))
01600	
01700	
01800	(DEFPROP PRINIT(LAMBDA()(PROG NIL
01900	(SETQ NEGSGN(SETQ ONEGSGN @¬))
02000	(SETQ ESCAPE @$)
02050	(SDIOINIT)
02100	(GETSYM SUBR PMEMQ STOP UNIFAB UNIAB TTYIN ORDERP POTZ1 SETU)
02200	))EXPR)
02300	
02400